home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
422mods.zip
/
CONAN11.422
< prev
next >
Wrap
Text File
|
1993-04-12
|
3KB
|
125 lines
1CONAN11 3- 45Feedback menu for SysOps
Conan #1 @7304
Wednesday, April 7, 1993 10:27 am [EST]
┌────────────────────────────────────────────────────────────────────────────┐
│ Mod Name : CONAN11 Mod Author: Conan 1@473 ComLink │
│ Difficulty : ███▒▒▒▒▒▒▒ 1@7304 IceNet │
│ WWIV Version : 4.22 1@7300 WWIVWeb │
│ Mod Date : 04/07/93 1@7307 WWIVNet │
│ Files Affected: BBS.C 1@17325 WWIVLink │
│ Description : Feedback Menu │
└────────────────────────────────────────────────────────────────────────────┘
This is for anyone who can't find a feedback menu floating around out there.
this is the one I use..and it works just dandy!
Key:
= No Change
+ Add
- Delete
Open up BBS.C and add this at the very end
/* START BLOCK READ */
void feedback(void)
{
static char ch;
nl();
nl();
nl();
printfile("SYSOP");
nl();
prt(1,"Feedback to which?: ");
ch=onek("Q12");
switch(ch) {
case 'A':
return;
case 'Q':
return;
case '1':
nl();
email(1,0,0,0); /* user number 1. The first of the four */
break; /* numbers indicates the user number. */
case '2':
nl();
email(2,0,0,0); /* user number 2 */
break;
}
return;
}
/* END BLOCK READ */
If you have more remotes or Co-SysOps you have to add another case:
for instance....
= case '2':
= nl();
= email(2,0,0,0);
= break;
- }
- return;
- }
+ case '3':
+ nl();
+ email(214,0,0,0); /* This will e-mail user number 214 */
+ break;
+ }
+ return;
+ }
Save and close BBS.C and open up FCNS.H and under the last void listed
in /* bbs.c */ add:
void feedback(void);
Save and close FCNS.H
That's all there is to it. You have to have a file called SYSOP.ANS
or SYSOP.MSG in your C:\BBS\GFILES directory. Here's what my
SYSOP.ANS looks like:
DC
┌┐┌┌┐┌┌┌─
AC┬─ │ │┌┐┌┐│─┬┐
C
│┘├│┘├├│ │ ││││││┘A
C│ ││
C
│ └│││└└ │ └┴┘└┘││A
C└─┴┘
CM A N A G E A
CM E N T
C
[
1
] A
C
ConanC
── A
C
System Operator
C
[
2
]A
C
Jimmy Hoffa A
C
──
Remote OpA
Cerator
C
[
Q
]A
C
Quit
Problems, comments, suggestions? You can contact me on my board, Perfect
World BBS (703)255-6606 or you can E-Mail me on any of the following nets:
1@473 ComLink
1@7304 IceNet
1@7300 WWIVWeb
1@7307 WWIVNet
1@17325 WWIVLink
1C7onan
27╓7┐7╓7┐7╓7─┐7╓7┐7╓7┐7╓7┐7┌╥7┐ 7╥ 7┬7╓7┐7╓7─┐7╖ 7╥7┐ 7╓7┐7╓7┐7╓7┐ 5IceNet @7304 3≡ 1WWIVNet @7307
37║7┘7╟0 7╟7┬┘7╟0 7╟0 7║0 7 ║ 7║╥7│7║7│7╟7┬┘7║ 7║7│ 7╟7┤7╟7┤7╙7┐ 7WWIVLink @17325 3≡ 6ComLink @473
47╨0 7╙7┘7╨7└ 7╨0 7╙7┘7╙7┘7 ╨ 7╙╨7┘7╙7┘7╨7└ 7╙7┘7╨7┘ 7╙7┘7╙7┘7╙7┘ 17o3-255-66o6 3≡ 2WWIVWeb @73000
5
6